home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 252 / dskpcsrc / calendar.def < prev    next >
Text File  |  1988-02-13  |  2KB  |  61 lines
  1. DEFINITION MODULE Calendar;
  2.  
  3.    (* This module defines procedures used for manipulating the *)
  4.    (* Calendar accessory.                                      *)
  5.  
  6.  
  7.    PROCEDURE Initialize ();
  8.  
  9.       (* Initialize the Calendar module. *)
  10.  
  11.  
  12.    PROCEDURE DayIsSaturday () : BOOLEAN;
  13.  
  14.       (* Return TRUE if the current day is a Saturday, or FALSE *)
  15.       (* otherwise.                                             *)
  16.  
  17.  
  18.    PROCEDURE DayIsSunday () : BOOLEAN;
  19.  
  20.       (* Return TRUE if the current day is a Sunday, or FALSE *)
  21.       (* otherwise.                                           *)
  22.  
  23.  
  24.    PROCEDURE OwnsWindow ( WindowId : INTEGER ) : BOOLEAN;
  25.  
  26.       (* Return TRUE if the Calendar owns the window specified by *)
  27.       (* "WindowId", or FALSE otherwise.                          *)
  28.  
  29.  
  30.    PROCEDURE Open;
  31.  
  32.       (* Open the Calendar.  If the Calendar is already opened, *)
  33.       (* then top the window belonging to the Calendar.         *)
  34.  
  35.  
  36.    PROCEDURE Close;
  37.  
  38.       (* Close the Calendar window. *)
  39.  
  40.  
  41.    PROCEDURE ProcessMessageEvent ( VAR MsgBuffer : ARRAY OF INTEGER );
  42.  
  43.       (* Process a message event not relating to a menu. *)
  44.  
  45.  
  46.    PROCEDURE ProcessButtonEvent ( MouseButton : INTEGER;
  47.                                   ModifierKey : INTEGER;
  48.                                   Clicks      : INTEGER );
  49.  
  50.       (* The mouse button has been pressed, so process the event. *)
  51.  
  52.  
  53.    PROCEDURE ProcessKeyboardEvent ( Key         : INTEGER;
  54.                                     ModifierKey : INTEGER );
  55.  
  56.       (* A key on the keyboard has been pressed, so process the event. *)
  57.  
  58.  
  59. END Calendar.
  60.  
  61.